BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Hyperj-Hz/HyperSlots1.0.cpt/HyperSlots1.0/card_3042.txt

Text File | 1987-12-19 | 3KB | 193 lines

-- card: 3042 from stack: in.0
-- bmap block id: 0
-- flags: 0000
-- background id: 2577
-- name:


-- part 6 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=181 top=59 right=97 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 12
-- text size: 12
-- style flags: 0
-- line height: 45
-- part name:


-- part 7 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=223 top=59 right=97 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 12
-- text size: 12
-- style flags: 0
-- line height: 45
-- part name:


-- part 8 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=265 top=59 right=97 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 12
-- text size: 12
-- style flags: 0
-- line height: 45
-- part name:


-- part 9 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=307 top=53 right=98 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=182 top=103 right=131 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play It
----- HyperTalk script -----
on mouseUp
  play Waltzvamp
  play Waltzvamp
  repeat with it = 1 to 5
    repeat with mux = 1 to 3
      set scroll of card field mux to 45*it
    end repeat
  end repeat
  put the random of 18 into Eins
  repeat with it = 1 to Eins
    repeat with mux = 1 to 3
      set scroll of card field mux to 45*it
    end repeat
  end repeat
  play marimba
  put the random of 18 into Zwei
  repeat with it = 1 to Zwei
    repeat with mux = 2 to 3
      set scroll of card field mux to 45*it
    end repeat
  end repeat
  play marimba
  put the random of 18 into Drei
  repeat with it = 1 to Drei
    set scroll of card field 3 to 45*it
  end repeat
  play marimba
  if char 1 of line (Eins+1) of card field 1 = char 1 of line (Zwei+1) of card field 2 then
    repeat 2 times
      play Hallelujah
    end repeat
    flash 24
  end if
  if char 1 of line (Eins+1) of card field 1 = char 1 of line (Drei+1) of card field 3 then
    repeat 2 times
      play Hallelujah
    end repeat
    flash 24
  end if
  if char 1 of line (Drei+1) of card field 3 = char 1 of line (Zwei+1) of card field 2 then
    repeat 2 times
      play Hallelujah
    end repeat
    flash 24
  end if
end mouseUp



-- part contents for card part 6
----- text -----
q
w
e
r
t
Y
i
o
S
Z
d
g
h
j
l
X
V
b
n



-- part contents for card part 7
----- text -----
l
X
V
b
n
q
w
e
r
t
Y
i
o
S
d
g
h
j
Z

-- part contents for card part 8
----- text -----
o
S
d
g
h
j
l
Z
X
V
b
n
q
w
e
r
t
Y
i